home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Magazin 1990 March
/
64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64
/
c-64 maske
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
947b
|
21 lines
60000 max=val(left$(in$,2)):x=val(mid$(in$,4,5)):br=val(mid$(in$,7,8)):tem=58640
60010 usb=val(mid$(in$,10,10)):txt$=mid$(in$,12,len(in$)):
60020 s$="":amax=max:y=br+len(txt$):max=br+max+len(txt$):ay=y+1
60030 fl$=" "
60040 if jg=0 then jg=1:poke 214,x:poke 211,y:system:print left$(fl$,amax)
60050 poke214,x:poke211,br:system:printtxt$:p$=chr$(95):q$=chr$(20)
60060 if y=max then fl=1
60070 poke214,x:poke211,y:system:print" [146]":get a$:if a$="" then 60070
60080 ifa$=q$andy>=aytheny=y-1:s$=left$(s$,len(s$)-1):poke214,x:poke211,y+1:system:kk=1
60090 ifa$=q$ and kk=1 then print" ":fl=0:kk=0:goto60060
60100 ifa$=p$thenpoke214,x:poke211,ay-1:system:print left$(fl$,amax+1)
60110 ifa$=p$thenpoke214,x:poke211,ay-1:system:print" [146]":y=ay-1:max=amax:fl=0:goto60000
60120 ifa$=chr$(13)thenpoke214,x:poke211,y:system:print" ":usb=0:fl=0:return
60130 if fl=1 then 60060
60140 ch=asc(a$):if usb=0 or usb=1 then if a$=chr$(32) then 60190
60150 ifusb=0orusb=1thenifch>64andch<91then60190
60160 ifusb=0orusb=1thenifch>192andch<219then60190
60170 ifusb=0orusb=2thenifch<33orch>65then60060
60180 ifusb=1then60060
60190 poke214,x:poke211,y:system:printa$:y=y+1:s$=s$+a$:goto60060